      

          /  /   

 ?       

    

    /    

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
Response = acDataErrContinue
MsgBox " ??     ,  ", vbCritical, ""
?End If
End Sub?